Making Dataframes
cbPalette <- c('#000000', '#187898', '#E69F00', '#56B4E9', '#009E73', '#F0E442', '#0072B2', '#D55E00', '#CC79A7', '#128409', '#6517A9', '#B91036', '8FB910', '#1029B9')
x_label <- c('Under 5 Female', 'Under 5 Male', '05-09 Female', '05-09 Male', '10-14 Female', '10-14 Male', '15-19 Female', '15-19 Male', '20-24 Female', '20-24 Male', '25-29 Female', '25-29 Male', '30-34 Female', '30-34 Male', '35-39 Female', '35-39 Male', '40-44 Female', '40-44 Male', '45-49 Female', '45-49 Male', '50-54 Female', '50-54 Male', '55-59 Female', '55-59 Male', '60-64 Female', '60-64 Male', '65-69 Female', '65-69 Male', '70-74 Female', '70-74 Male', '75-79 Female', '75-79 Male', '80-84 Female', '80-84 Male', '85 and over Female', '85 and over Male')
counties <- c('Anson', 'Cabarrus', 'Catawba', 'Chester', 'Cleveland', 'Gaston', 'Iredell', 'Lancaster', 'Lincoln', 'Mecklenburg', 'Rowan', 'Stanly', 'Union', 'York')
attainment_lvl <- c('Highest Degree: Less than a High School Diploma', 'Highest Degree: High School Diploma', 'Highest Degree: Some College, No Degree', "Highest Degree: Associate's Degree", "Highest Degree: Bachelor's Degree", "Highest Degree: Graduate or Professional Degree")
foreign_detail <- c('Foreign-Born: Africa', 'Foreign-Born: Asia', 'Foreign-Born: Europe', 'Foreign-Born: Latin America', 'Place of Birth Total')
countypop <- rbind(read_csv("cc-est2019-agesex-37.csv", show_col_types = F),
read_csv("cc-est2019-agesex-45.csv", show_col_types = F)) %>%
select(-SUMLEV, -STATE, -COUNTY) %>%
mutate(CTYNAME = gsub(' County', '', CTYNAME),
YEAR = as.integer(YEAR + 2007)) %>%
filter(CTYNAME %in% counties, YEAR >= 2010,
!(STNAME == 'South Carolina' & CTYNAME == 'Union')) %>%
distinct()
# Year 3 is 2010, Year 12 is 2019
# Making Charlotte Region
cr <- countypop[1:10,] %>%
mutate(CTYNAME = 'Charlotte Region')
for(i in 4:length(colnames(countypop))) {
for(j in 1:10){
cr[j,i] <- sum((countypop %>% filter(YEAR == j+2009))[i])
}
}
ggplot(data = countypop %>% filter(YEAR == 2019)) +
geom_col(aes(CTYNAME, POPESTIMATE, fill = CTYNAME), show.legend = F) +
scale_y_continuous(labels = comma) +
scale_fill_manual(values = cbPalette) +
coord_flip()

LS0tDQp0aXRsZTogIlIgTm90ZWJvb2siDQpvdXRwdXQ6IGh0bWxfbm90ZWJvb2sNCi0tLQ0KDQoNCg0KYGBge3J9DQojIExvYWQgUGFja2FnZXMNCmxpYnJhcnkoY3Jvc3N0YWxrKQ0KbGlicmFyeSh0aWR5dmVyc2UpDQpsaWJyYXJ5KGdndGhlbWVzKQ0KbGlicmFyeShzY2FsZXMpDQpsaWJyYXJ5KHJlYWR4bCkNCmxpYnJhcnkocGxvdGx5KQ0KYGBgDQoNCg0KIyBNYWtpbmcgRGF0YWZyYW1lcw0KYGBge3J9DQpjYlBhbGV0dGUgPC0gYygnIzAwMDAwMCcsICcjMTg3ODk4JywgJyNFNjlGMDAnLCAnIzU2QjRFOScsICcjMDA5RTczJywgJyNGMEU0NDInLCAnIzAwNzJCMicsICcjRDU1RTAwJywgJyNDQzc5QTcnLCAnIzEyODQwOScsICcjNjUxN0E5JywgJyNCOTEwMzYnLCAnOEZCOTEwJywgJyMxMDI5QjknKQ0KeF9sYWJlbCA8LSBjKCdVbmRlciA1IEZlbWFsZScsICdVbmRlciA1IE1hbGUnLCAnMDUtMDkgRmVtYWxlJywgJzA1LTA5IE1hbGUnLCAnMTAtMTQgRmVtYWxlJywgJzEwLTE0IE1hbGUnLCAnMTUtMTkgRmVtYWxlJywgJzE1LTE5IE1hbGUnLCAnMjAtMjQgRmVtYWxlJywgJzIwLTI0IE1hbGUnLCAnMjUtMjkgRmVtYWxlJywgJzI1LTI5IE1hbGUnLCAnMzAtMzQgRmVtYWxlJywgJzMwLTM0IE1hbGUnLCAnMzUtMzkgRmVtYWxlJywgJzM1LTM5IE1hbGUnLCAnNDAtNDQgRmVtYWxlJywgJzQwLTQ0IE1hbGUnLCAnNDUtNDkgRmVtYWxlJywgJzQ1LTQ5IE1hbGUnLCAnNTAtNTQgRmVtYWxlJywgJzUwLTU0IE1hbGUnLCAnNTUtNTkgRmVtYWxlJywgJzU1LTU5IE1hbGUnLCAnNjAtNjQgRmVtYWxlJywgJzYwLTY0IE1hbGUnLCAnNjUtNjkgRmVtYWxlJywgJzY1LTY5IE1hbGUnLCAnNzAtNzQgRmVtYWxlJywgJzcwLTc0IE1hbGUnLCAnNzUtNzkgRmVtYWxlJywgJzc1LTc5IE1hbGUnLCAnODAtODQgRmVtYWxlJywgJzgwLTg0IE1hbGUnLCAnODUgYW5kIG92ZXIgRmVtYWxlJywgJzg1IGFuZCBvdmVyIE1hbGUnKQ0KY291bnRpZXMgPC0gYygnQW5zb24nLCAnQ2FiYXJydXMnLCAnQ2F0YXdiYScsICdDaGVzdGVyJywgJ0NsZXZlbGFuZCcsICdHYXN0b24nLCAnSXJlZGVsbCcsICdMYW5jYXN0ZXInLCAnTGluY29sbicsICdNZWNrbGVuYnVyZycsICdSb3dhbicsICdTdGFubHknLCAnVW5pb24nLCAnWW9yaycpDQphdHRhaW5tZW50X2x2bCA8LSBjKCdIaWdoZXN0IERlZ3JlZTogTGVzcyB0aGFuIGEgSGlnaCBTY2hvb2wgRGlwbG9tYScsICdIaWdoZXN0IERlZ3JlZTogSGlnaCBTY2hvb2wgRGlwbG9tYScsICdIaWdoZXN0IERlZ3JlZTogU29tZSBDb2xsZWdlLCBObyBEZWdyZWUnLCAiSGlnaGVzdCBEZWdyZWU6IEFzc29jaWF0ZSdzIERlZ3JlZSIsICJIaWdoZXN0IERlZ3JlZTogQmFjaGVsb3IncyBEZWdyZWUiLCAiSGlnaGVzdCBEZWdyZWU6IEdyYWR1YXRlIG9yIFByb2Zlc3Npb25hbCBEZWdyZWUiKQ0KZm9yZWlnbl9kZXRhaWwgPC0gYygnRm9yZWlnbi1Cb3JuOiBBZnJpY2EnLCAnRm9yZWlnbi1Cb3JuOiBBc2lhJywgJ0ZvcmVpZ24tQm9ybjogRXVyb3BlJywgJ0ZvcmVpZ24tQm9ybjogTGF0aW4gQW1lcmljYScsICdQbGFjZSBvZiBCaXJ0aCBUb3RhbCcpDQoNCmNvdW50eXBvcCA8LSByYmluZChyZWFkX2NzdigiY2MtZXN0MjAxOS1hZ2VzZXgtMzcuY3N2Iiwgc2hvd19jb2xfdHlwZXMgPSBGKSwNCiAgICAgICAgICAgICAgICAgICByZWFkX2NzdigiY2MtZXN0MjAxOS1hZ2VzZXgtNDUuY3N2Iiwgc2hvd19jb2xfdHlwZXMgPSBGKSkgJT4lDQogIHNlbGVjdCgtU1VNTEVWLCAtU1RBVEUsIC1DT1VOVFkpICU+JQ0KICBtdXRhdGUoQ1RZTkFNRSA9IGdzdWIoJyBDb3VudHknLCAnJywgQ1RZTkFNRSksDQogICAgICAgICBZRUFSID0gYXMuaW50ZWdlcihZRUFSICsgMjAwNykpICU+JQ0KICBmaWx0ZXIoQ1RZTkFNRSAlaW4lIGNvdW50aWVzLCBZRUFSID49IDIwMTAsDQogICAgICAgICAhKFNUTkFNRSA9PSAnU291dGggQ2Fyb2xpbmEnICYgQ1RZTkFNRSA9PSAnVW5pb24nKSkgJT4lDQogIGRpc3RpbmN0KCkNCiMgWWVhciAzIGlzIDIwMTAsIFllYXIgMTIgaXMgMjAxOQ0KDQojIE1ha2luZyBDaGFybG90dGUgUmVnaW9uDQpjciA8LSBjb3VudHlwb3BbMToxMCxdICU+JQ0KICBtdXRhdGUoQ1RZTkFNRSA9ICdDaGFybG90dGUgUmVnaW9uJykNCmZvcihpIGluIDQ6bGVuZ3RoKGNvbG5hbWVzKGNvdW50eXBvcCkpKSB7DQogIGZvcihqIGluIDE6MTApew0KICAgIGNyW2osaV0gPC0gc3VtKChjb3VudHlwb3AgJT4lIGZpbHRlcihZRUFSID09IGorMjAwOSkpW2ldKQ0KICB9DQp9DQpgYGANCg0KYGBge3J9DQpnZ3Bsb3QoZGF0YSA9IGNvdW50eXBvcCAlPiUgZmlsdGVyKFlFQVIgPT0gMjAxOSkpICsNCiAgZ2VvbV9jb2woYWVzKENUWU5BTUUsIFBPUEVTVElNQVRFLCBmaWxsID0gQ1RZTkFNRSksIHNob3cubGVnZW5kID0gRikgKw0KICBzY2FsZV95X2NvbnRpbnVvdXMobGFiZWxzID0gY29tbWEpICsNCiAgc2NhbGVfZmlsbF9tYW51YWwodmFsdWVzID0gY2JQYWxldHRlKSArDQogIGNvb3JkX2ZsaXAoKQ0KYGBgDQoNCmBgYHtyfQ0Kc2hhcmVkX3BvcCA8LSBTaGFyZWREYXRhJG5ldyhjb3VudHlwb3ApDQoNCmJzY29scyh3aWR0aHMgPSBjKDMsIE5BKSwNCiAgICAgICBsaXN0KA0KICAgICAgICAgZmlsdGVyX3NsaWRlcignY3BfeWVhcicsICdTZWxlY3QgWWVhcicsIHNoYXJlZF9wb3AsIH5ZRUFSLCBzZXA9JywnLCByb3VuZCA9IFQsIGRyYWdSYW5nZSA9IEYpKSwNCiAgICAgICBwbG90X2x5KHNoYXJlZF9wb3AsIHggPSB+Q1RZTkFNRSwgeSA9IH5QT1BFU1RJTUFURSwgdHlwZSA9ICdiYXInKQ0KKQ0KYGBgDQoNCg0K